 0 REM 'IDIOT COMPILER ARCHIVER V1.05 2.28.18
 1 L=0:DIM L$(1000):ON ERR GOTO 5
 2  PRINT "iDIOT SOURCE ARCHIVER"
 3  PRINT CHR$(4);"VERIFY COMPILE.A,S3"
 4  GOTO 10
 5  PRINT "ERR: THERE IS NO COMPILED PROGRAM IN RAMDRIVE."
 6  POKE 43626,6:END

10 PRINT "READING COMPILE SOURCE FILE..."
11 GA$="COMPILE.A,S3":GB$="COMPILE.A,S6":GC$="COMPILE.A":GOSUB 100
12 PRINT "TRANSFERING TO DISK...":GOSUB 120

13 PRINT "GATHERING LINE LIST..."
14 GA$="COMPILED.LINES":GB$="COMPILE.A":GC$=GA$:GOSUB 100

15 PRINT "SAVING LINE LIST"
16 GC$=GB$:GOSUB 130:GOSUB 135:GOSUB 122

17 PRINT "GATHERING VARIABLE LIST"
18 GA$="VARIABLES":GB$="COMPILE.A":GC$=GA$:GOSUB 100

19 PRINT "SAVING VARIABLE LIST"
20 GC$=GB$:GOSUB 130:GOSUB 135:GOSUB 122
25 INPUT "NAME TO ARCHIVE AS: ";A$
26 PRINT CHR$(4);"RENAME COMPILE.A,";A$;".SRC"
27 END


 100  REM
 101  L=1:L$(L)="":ON ERR GOTO 119
 114  PRINT  CHR$ (4);"OPEN";GA$
 115  PRINT  CHR$ (4);"READ";GC$
 116  GET LP$: IF  ASC (LP$) = 13 OR  ASC (LP$)= 141 GOTO 118
 117 L$(L) = L$(L) + LP$: GOTO 116
 118 L = L + 1:L$(L) = "": GOTO 116
 119  CALL -3288:PRINT  CHR$ (4);"CLOSE":RETURN


 120  PRINT  CHR$ (4);"OPEN";GB$
 122  PRINT  CHR$ (4);"WRITE";GC$
 123  FOR A = 1 TO L - 1: PRINT L$(A): NEXT 
 124  PRINT  CHR$ (4);"CLOSE"
 125  RETURN

 130 PRINT CHR$(4);"APPEND";GB$:RETURN


 135 PRINT CHR$(4);"WRITE";GB$:PRINT GA$:PRINT CHR$(4):RETURN
 















